;autor: Redrack
;Skrypt sluzy do odmierzania czasu i przewidywania kolejnych gain'ow poszczegolnych skilli
;Mozna wybrac do 6 umiejetnosci z listy wszystkich skill'i dostepnych na shardzie MW
;Aby skrypt poprawnie dzialal, nalezy miec ustawione wyswietlanie informacji o wzroscie umiejetnosci o kazde 0.1%
;W tym celu nalezy wejsc Options->Miscellaneous(4. od gory, z prawej strony) i zaznaczyc "1" na pasku pod napisem "Inform me when my skills improve this much (in tenths)"
;Po wlaczeniu odmierzania i przed pierwszym gain'em skill'a nie wolno zakladac magikow do umiejetnosci, gdyz skrypt moze policzyc to jako pierwszy gain
;W razie problemow lub ewentualnych brakow prosze o kontakt ze mna na ircu (nick: Redrack lub Redrack|AW)

initevents
introduce:
set #sysmsgcol 1100
set #menuButton N/A
set %pauze N/A
set %used 0
for %numb 1 6
{
   set %skill . %numb ------
   set %timea . %numb -- , #spc
   set %timeb . %numb #spc , -- , #spc
   set %timec . %numb #spc , --
   set %lefta . %numb -- , #spc
   set %leftb . %numb #spc , -- , #spc
   set %leftc . %numb #spc , --
}

menu clear
menu window title Stoper gain'owy #spc v1.9
menu window size 250 345
menu window color btnface
menu font name arial
menu font size 11
menu font color black
menu font bgcolor btnface
menu font style b
menu text textskill 49 5 Wybierz umiejetnosci:
menu text textskill 49 95 Odmierzanie gain'ow:
menu font size 9
menu font bgcolor white
menu font style
menu combo create skill 25 30 200
menu combo add skill -- TYP: Walka --         ; 1
menu combo add skill Barbarzynstwo            ; 2
menu combo add skill Fanatyzm                 ; 3
menu combo add skill Gorliwosc                ; 4
menu combo add skill Kensai                   ; 5
menu combo add skill Lucznictwo               ; 6
menu combo add skill Obrona                   ; 7
menu combo add skill Paladynizm               ; 8
menu combo add skill Taktyka                  ; 9
menu combo add skill Walka mieczami           ; 10
menu combo add skill Walka obuchami           ; 11
menu combo add skill Walka szpadami           ; 12
menu combo add skill Walka piesciami          ; 13
menu combo add skill -- TYP: Magia --         ; 14
menu combo add skill Druidyzm                 ; 15
menu combo add skill Inskrypcja               ; 16
menu combo add skill Magia                    ; 17
menu combo add skill Medytacja                ; 18
menu combo add skill Nekromancja              ; 19
menu combo add skill Odpornosc na magie       ; 20
menu combo add skill Umagicznianie            ; 21
menu combo add skill Wampiryzm                ; 22
menu combo add skill -- TYP: Rzemioslo --     ; 23
menu combo add skill Alchemia                 ; 24
menu combo add skill Druciarstwo              ; 25
menu combo add skill Gotowanie                ; 26
menu combo add skill Kartografia              ; 27
menu combo add skill Kowalstwo                ; 28
menu combo add skill Krawiectwo               ; 29
menu combo add skill Malarstwo                ; 30
menu combo add skill Stolarstwo               ; 31
menu combo add skill Tkactwo                  ; 32
menu combo add skill Tworzenie lukow          ; 33
menu combo add skill -- TYP: Przemysl --      ; 34
menu combo add skill Drwalstwo                ; 35
menu combo add skill Gornictwo                ; 36
menu combo add skill Rolnictwo                ; 37
menu combo add skill Rybactwo                 ; 38
menu combo add skill Zielarstwo               ; 39
menu combo add skill -- TYP: Umyslowe --      ; 40
menu combo add skill Anatomia                 ; 41
menu combo add skill Identyfikacja            ; 42
menu combo add skill Madrosc                  ; 43
menu combo add skill Rozmowa z duchami        ; 44
menu combo add skill Wiedza o broni           ; 45
menu combo add skill Wiedza o zwierzetach     ; 46
menu combo add skill -- TYP: Bard --          ; 47
menu combo add skill Muzykalnosc              ; 48
menu combo add skill Oczarowanie              ; 49
menu combo add skill Prowokacja               ; 50
menu combo add skill Uspokajanie              ; 51
menu combo add skill -- TYP: Inne --          ; 52
menu combo add skill Likantropia              ; 53
menu combo add skill Obozowanie               ; 54
menu combo add skill Okradanie                ; 55
menu combo add skill Oswajanie                ; 56
menu combo add skill Sledzenie                ; 57
menu combo add skill Ukrywanie                ; 58
menu combo add skill Usuwanie pulapek         ; 59
menu combo add skill Uzdrawianie              ; 60
menu combo add skill Weterynaria              ; 61
menu combo add skill Wlamywanie               ; 62
menu combo add skill Wykrywanie               ; 63
menu combo add skill Zagladanie               ; 64
menu combo add skill Zakradanie               ; 65
menu combo add skill Zatruwanie               ; 66
menu combo add skill Zebranie                 ; 67
menu combo select skill 0
menu font size 8
menu font bgcolor btnface
menu text textskill 24 118 Odmierzane
menu text textskill 23 130 umiejetnosci:
menu text textskill 147 118 Czas
menu text textskill 145 130 gain'a:
menu text textskill 194 118 Nastepny
menu text textskill 206 130 gain:
menu HideEUO

change:
menu font size 8
for %numb 1 6
{
   set %wciecie ( 136 + ( 25 * %numb ) )
   menu text skill , %numb 10 %wciecie %skill . %numb
   menu text time , %numb 140 %wciecie %timea . %numb , : , %timeb . %numb , : , %timec . %numb
   menu text left , %numb 197 %wciecie %lefta . %numb , : , %leftb . %numb , : , %leftc . %numb
}
menu font size 10
if %used <> 6
{
   menu button accept 50 60 150 20 Zatwierdz umiejetnosc!
   menu button metter 10 315 115 20 Odmierzaj gain'y
   menu button reset 135 315 105 20 RESET
}

start:
if #menubutton = reset
   goto introduce
if #menubutton = metter || %used = 6
{
   if %used = 0
   {
      event sysmessage Nie wybrales zadnej umiejetnosci, nie mozesz odpalic stopera!
      set #menubutton N/A
      goto start
   }
   wait 1
   set %used 6
   menu delete accept
   menu delete metter
   menu delete reset
   menu button anmetter 23 315 140 20 Przerwij odmierzanie!
   menu button pauze 172 315 55 20 PAUZA
   liczenie:
   for %numb 1 6
   {
      if Your_skill_in_ , %skill . %numb , _has_increased in #sysmsg || Twa_umiejetnosc_ , %skill . %numb , _wzrosla_o in #sysmsg
      {
         if %l . %numb = N/A
         {
            set %czas . %numb #scnt
            set %l . %numb 1
            wait 1
            event sysmessage Odmierzasz gain'a dla: %skill . %numb
            goto liczenie
         }
         if 0.1% in #sysmsg && ( #scnt - %czas . %numb ) > 10
         {
            set %timea . %numb ( #scnt - %czas . %numb ) / 3600
            set %timeb . %numb ( ( #scnt - %czas . %numb ) - ( %timea . %numb * 3600 ) ) / 60
            set %timec . %numb ( ( #scnt - %czas . %numb ) - ( %timea . %numb * 3600 ) -  ( %timeb . %numb * 60 ) )
            if %timea . %numb < 10
               set %timea . %numb 0 , %timea . %numb
            if %timeb . %numb < 10
               set %timeb . %numb 0 , %timeb . %numb
            if %timec . %numb < 10
               set %timec . %numb 0 , %timec . %numb
            str right #time 2
            set %leftc . %numb #strres
            str mid #time 3 2
            set %leftb . %numb #strres
            str left #time 2
            set %lefta . %numb #strres
            if ( %leftc . %numb + %timec . %numb ) > 59
               set %leftb . %numb %leftb . %numb + 1
            if ( %leftb . %numb + %timeb . %num ) > 59
               set %lefta . %numb %lefta . %numb + 1
            set %leftc . %numb ( %leftc . %numb + %timec . %numb ) - ( ( %leftc . %numb + %timec . %numb ) / 60 ) * 60
            set %leftb . %numb ( %leftb . %numb + %timeb . %numb ) - ( ( %leftb . %numb + %timeb . %numb ) / 60 ) * 60
            set %lefta . %numb ( %lefta . %numb + %timea . %numb ) - ( ( %lefta . %numb + %timea . %numb ) / 24 ) * 24
            if %lefta . %numb < 10
               set %lefta . %numb 0 , %lefta . %numb
            if %leftb . %numb < 10
               set %leftb . %numb 0 , %leftb . %numb
            if %leftc . %numb < 10
               set %leftc . %numb 0 , %leftc . %numb
            set %czas . %numb #scnt
            wait 1
            event sysmessage Czas gain'a wyniosl:
            set #sysmsgcol 1090
            event sysmessage %timea . %numb , : , %timeb . %numb , : , %timec . %numb
            set #sysmsgcol 1100
            event sysmessage Najprawdopodobniej nastepny gain bedzie:
            set #sysmsgcol 1090
            event sysmessage %lefta . %numb , : , %leftb . %numb , : , %leftc . %numb
            set #sysmsgcol 1100
            goto change
         }
      }
   }
   if #menubutton = metter || #menubutton = play
      goto liczenie
   if #menubutton = pauze
   {
      set %xscnt #scnt
      menu button play 172 315 55 20 PLAY
      secun:
      if #menubutton = pauze
      {
         if #scnt - %xscnt = %pauze && %pauze <> N/A
            goto secun
         set %pauze #scnt - %xscnt
         set %pa %pauze / 3600
         set %pb ( %pauze - ( %pa * 3600 ) ) / 60
         set %pc ( %pauze - ( %pa * 3600 ) -  ( %pb * 60 ) )
         if %pa < 10
            set %pa 0 , %pa
         if %pb < 10
            set %pb 0 , %pb
         if %pc < 10
            set %pc 0 , %pc
         menu text textpauze 50 65 Pauza trwa juz: %pa , : , %pb , : , %pc
         goto secun
      }
      wait 1
      if #menubutton = play
      {
         for %numb 1 6
         {
            if %lefta . %numb <> -- , #spc
            {
               if ( %leftc . %numb + %pc ) > 59
                  set %leftb . %numb %leftb . %numb + 1
               if ( %leftb . %numb + %pb ) > 59
                  set %lefta . %numb %lefta . %numb + 1
               set %leftc . %numb ( %leftc . %numb + %pc ) - ( ( %leftc . %numb + %pc ) / 60 ) * 60
               set %leftb . %numb ( %leftb . %numb + %pb ) - ( ( %leftb . %numb + %pb ) / 60 ) * 60
               set %lefta . %numb ( %lefta . %numb + %pa ) - ( ( %lefta . %numb + %pa ) / 24 ) * 24
               if %lefta . %numb < 10
                  set %lefta . %numb 0 , %lefta . %numb
               if %leftb . %numb < 10
                  set %leftb . %numb 0 , %leftb . %numb
               if %leftc . %numb < 10
                  set %leftc . %numb 0 , %leftc . %numb
            }
         }
         menu delete textpauze
         set %pauze N/A
         set #scnt %xscnt
         goto change
      }
   }
   if #menubutton = anmetter
      goto introduce
   if #menubutton = closed
   {
      menu hide
      event sysmessage Okno stopera zostalo zamkniete, skrypt zostaje wylaczony...
      halt
   }
   goto liczenie
}
if #menubutton = accept
{
   menu getnum skill
   if #menures = 2
      set %skill Barbarzynstwo
   if #menures = 3
      set %skill Fanatyzm
   if #menures = 4
      set %skill Gorliwosc
   if #menures = 5
      set %skill Kensai
   if #menures = 6
      set %skill Lucznictwo
   if #menures = 7
      set %skill Obrona
   if #menures = 8
      set %skill Paladynizm
   if #menures = 9
      set %skill Taktyka
   if #menures = 10
      set %skill Walka_mieczami
   if #menures = 11
      set %skill Walka_obuchami
   if #menures = 12
      set %skill Walka_szpadami
   if #menures = 13
      set %skill Walka_piesciami
   if #menures = 15
      set %skill Druidyzm
   if #menures = 16
      set %skill Inskrypcja
   if #menures = 17
      set %skill Magia
   if #menures = 18
      set %skill Medytacja
   if #menures = 19
      set %skill Nekromancja
   if #menures = 20
      set %skill Odpornosc_na_magie
   if #menures = 21
      set %skill Umagicznianie
   if #menures = 22
      set %skill Wampiryzm
   if #menures = 24
      set %skill Alchemia
   if #menures = 25
      set %skill Druciarstwo
   if #menures = 26
      set %skill Gotowanie
   if #menures = 27
      set %skill Kartografia
   if #menures = 28
      set %skill Kowalstwo
   if #menures = 29
      set %skill Krawiectwo
   if #menures = 30
      set %skill Malarstwo
   if #menures = 31
      set %skill Stolarstwo
   if #menures = 32
      set %skill Tkactwo
   if #menures = 33
      set %skill Tworzenie_lukow
   if #menures = 35
      set %skill Drwalstwo
   if #menures = 36
      set %skill Gornictwo
   if #menures = 37
      set %skill Rolnictwo
   if #menures = 38
      set %skill Rybactwo
   if #menures = 39
      set %skill Zielarstwo
   if #menures = 41
      set %skill Anatomia
   if #menures = 42
      set %skill Identyfikacja
   if #menures = 43
      set %skill Madrosc
   if #menures = 44
      set %skill Rozmowa_z_duchami
   if #menures = 45
      set %skill Wiedza_o_broni
   if #menures = 46
      set %skill Wiedza_o_zwierzetach
   if #menures = 48
      set %skill Muzykalnosc
   if #menures = 49
      set %skill Oczarowanie
   if #menures = 50
      set %skill Prowokacja
   if #menures = 51
      set %skill Uspokajanie
   if #menures = 53
      set %skill Likantropia
   if #menures = 54
      set %skill Obozowanie
   if #menures = 55
      set %skill Okradanie
   if #menures = 56
      set %skill Oswajanie
   if #menures = 57
      set %skill Sledzenie
   if #menures = 58
      set %skill Ukrywanie
   if #menures = 59
      set %skill Usuwanie_pulapek
   if #menures = 60
      set %skill Uzdrawianie
   if #menures = 61
      set %skill Weterynaria
   if #menures = 62
      set %skill Wlamywanie
   if #menures = 63
      set %skill Wykrywanie
   if #menures = 64
      set %skill Zagladanie
   if #menures = 65
      set %skill Zakradanie
   if #menures = 66
      set %skill Zatruwanie
   if #menures = 67
      set %skill Zebranie
   wait 1
   if #menures = N/A || %skill = N/A || %skill = %skill1 || %skill = %skill2 || %skill = %skill3 || %skill = %skill4 || %skill = %skill5
   {
      event sysmessage Wybrana umiejetnosc jest blednie wskazana lub jest juz mierzona... sprobuj ponownie!
      set #menubutton N/A
      goto start
   }
   wait 1
   for %numb 1 6
   {
      if %skill . %numb = ------
      {
         set %skill . %numb %skill
         set %used %numb
         goto finish
      }
   }
   finish:
   set #menubutton N/A
   set %skill N/A
   goto change
}
if #menubutton = closed
{
   menu hide
   event sysmessage Okno stopera zostalo zamkniete, skrypt zostaje wylaczony...
   halt
}
goto start